Top 10k strings from 16-48 Magazine - Issue 16 (1985)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
5 X(a),y(a); 5 "WHICH GRAPHICS ? "; 4 ;" " 3 ;"BanditUDG 2 z$="10030203STOP THE TAPE": 2 x(a),y(a); 2 RUN THE TAPE 2 ;NUDGE;" NUDGE"; 2 ;"tutor7": 2 ;"WHAT IS THE "; 2 ;"THIS COUNTRY"; 2 ;"RUBBISH !!! "; 2 ;"CROSSWORD": 2 ;" `";M;" ": 2 ;" IS "; 2 ;" " 2 ########################## 2 Decrement SP"'" 1 z$="13030305CHAPTER 7": 1 z$="10030203RUN THE TAPE": 1 z$="06070105MACHINE CODE TUTOR": 1 z$="0310020216/48": 1 z$="00050102WHAT'S IT ALL ABOUT?": 1 z$="00030202WHERE IS IT?": 1 z$="00030102S0 WHAT'S THE PROBLEM?": 1 z$="00020202MORE FROM ROM": 1 z$="00000302CALL & RET": 1 z$="00000202TRY IT OUT NOW": 1 z$="00000202THAT'S ALL FOLKS": 1 z$="00000202HOW DO I USE IT?": 1 z$="00000202GETTING IT BACK": 1 x(a),Y(a); 1 was used." 1 tutor7 1 n;"PRESS ANY KEY TO START" 1 l=l+(k$="6" 1 graphics 1 gazine Ltd. *6\$: 1 c=c+(k$="8" 1 agazine Ltd. *6\$: 1 a$=" " 1 Z$="LLCC0202"+A$(N,1 1 Z$="10030203RUN THE TAPE": 1 Z$=" YCC0202"+A$(N,Y/2 1 XXXXXX X XX X X XXXXXXXXXXXXX XX X XXXXXXXXXXX X XX X X X X XXXXXX XXXX X X X X XXXXXXXXX XX X X XXXXXXX XXXX 1 X(a),Y(a); 1 TO VERIFY SAVED GAME 1 TO RETURN TO GAME 1 TO GET YOUR SPECTRUM BACK 1 STOP THE TAPESy 1 START,LENGTH: 1 SPAIN i 1 SINCLAIR INTERFACE 2 1 SAVE OPTIONS 1 S$="XXXXXX X XX X X XXXXXXXXXXXXX XX X XXXXXXXXXXX X XX X X X X XXXXXX XXXX X X X X XXXXXXXXX XX X X XXXXXXX XXXX" 1 RESULTS 1 QUIT ROUTINE 1 PROTEK/CURSOR INTERFACE 1 PRINT WORD 1 PRINT CLUE 1 PRESS ANY KEY 1 PLEASE STOP THE TAPE 1 PARIS MADRID LISBON LONDON OSLO STOCKHOLM HELSINKI MOSCOW WARSAW BERLIN BONN BUCHAREST ATHENS ROME SOFIA BELGRADE ISTANBUL 1 OOOOOOOOOOOOOOOOJJJJLJJJJJJJJJJJOOOOOOOOONNNNNOOJJJJJJJJJJJJJJJJOOOOOOOOONOONNOOJJJJJJJJJJJJJJJJOOOOOONNNNONNOOOJJJJJzzzzzzzzzzJOOOOOONOOMNNNOOOJJJzzzzzzzzzzzzzOOOONNNOONNNOOOOJJJzzzzzzzzzzzzzNNNNNOLOLNNNOOOOJJJzzzzzzzzzzzzzNOOOLLLLLNNNOOOJJJJzzzzzzzzzzzzzNOOLLLLLLOOOOOJJJJJzzzzzzzzzzzzzNOLLLLLLOOOOOOJJJJJzzzzzzzzzzzzzNOLLLLLLLLOJJOOJJJJzzzzzzzzzzzzzNOLOLLLLLLJJJOOJJJJzzzzzzzzzzzzzLLLLLLLLLOJJJOOJJJJWWWWWWWWWWWWWLLLLLLLLLLOOOOOJJJJJJJJJJJJJJJJJLOOOOLLLLLOOOOOJJJJJJJJJJJJJJJJJLOOOOLLLLLOOOOOOOOJJJJJJJJJJJJJJLNNNOLLLLOOOOOOOOOOOOOOJJJJJJJJJNNNOOOLOLNOOOOOOOOOOOOOOJJJJJJJJNNOOOOOOONOOOOOLLLOOOOOOOOOOJOJONNOOOOOOONOOOOLLLOOOOOOOOOOOJOJONOOOOOOOONOOOOLLLOOOOOOOOOOOOOJONNNNNNNNNNNNNNOLLOOOOOHHHHHHHHHH 1 ONE ARM BANDIT 1 NAPIER 1 1 5 00MADAM 2 7 4 00BINAURAL 3 1 7 00PLANT 4 7 4 00LUMBAR 5 1 5 00ADRIFT 7 2 5 00ZEN 7 9 2 00ADMONISH 9 1 7 00HURDLE 111 5 00TOIL 118 3 00NIBBLE 1 1 5 10RASH 8 1 3 10PEN 1 3 2 10MODEM 5 3 4 10EDUCATIONAL1 5 1010MAP 2 7 2 10STASH 6 7 4 10CALL 1 8 3 10AMAZE 4 9 4 10EMPTY 1 114 10NOBEL 7 114 10W 1 N;"PRESS ANY KEY TO START" 1 MARSEILLES VALENCIA OPORTO BIRMINGHAM STAVANGER VASTERAS PORI MINSK POZNAN LEIPZIG FRANKFURT CONSTANTA PIRAEUS TURIN BURGAS BELGRADE ANKARA 1 MAP 1 LYONS BARCELONA COIMBRA EDINBURGH BERGEN MALMO TAMPERE GORKI KRAKOW ROSTOCK DUSSELDORF CLUJ PATRAS MILAN VARNA ZAGREB BURSA 1 L$=L$+" ": 1 KEMPSTON INTERFACE 1 INVENTOR OF LOGARITHMS.K 1 INPUT WORD 1 I;"QUESTION"; 1 I;"INSTRUCTIONS" 1 I;"EUROPE" 1 I;" " 1 FRANCE SPAIN PORTUGAL BRITAIN NORWAY SWEDEN FINLAND RUSSIA POLAND EAST GERMANYWEST GERMANYRUMANIA GREECE ITALY BULGARIA YUGOSLAVIA TURKEY 1 FRANC PESETA ESCUDO POUND KRONE KRONA MARKA ROUBLE ZLOTY MARK MARK LEU DRACHMA LIRA LEV DINAR LIRA 1 F$="ENTER" 1 F$(F),I$(F),J$(F),K$(F) 1 EUROPE 1 CURSOR UP & DOWN, 0 TO mOVE ON. 1 CROSSWORD 1 CONTROL OPTIONS 1 CHECK FOR FINISH 1 C$(F),X(F),Y(F): 1 Bandit 1 BORDEAUX SEVILLE FARO CARDIFF TRONDHEIM GOTHENBURG TURKU LENINGRAD GDANSK DRESDEN HANNOVER PLOIESTI THESSALONIKINAPLES PLOVDIV SARAJEVO KONYA 1 B$(A)+B);",";: 1 ARRAY AND NT E E R UT A LOGICALRED L U LI COMMA SBIN W E BITU E IN E RT X T E IEXTEND OPEN O O E GOR RETURN 1 A$="YOU LOST AGAIN SUCKER" 1 A$="COLLECT YOUR WINNINGS" 1 A$=" ANOTHER GAME (Y/N)? ": 1 A$=" YOU ARE BANKRUPT! " 1 A$=" YOU BROKE EVEN! " 1 =,(N*V)/N: 1 ;a$'a$'a$'a$; 1 ;F$;" TO SPIN THE REELS" 1 ;C$;",";D$;" AND ";E$;" TO NUDGE THE REELS" 1 ;A$;" AND ";B$;" TO CHANGE YOUR BET" 1 ;"will ask var-"; 1 ;"to continue" 1 ;"ns for you"; 1 ;"ious questio-"; 1 ;"graphics": 1 ;"graphics" 1 ;"`10 MAXIMUM BET" 1 ;"`0 TO QUIT THE GAME" 1 ;"____________" 1 ;"YOUR "; 1 ;"YOU COULD "; 1 ;"Y coordinate = ";y 1 ;"Xcoordinate = ";x 1 ;"WRONG !!!! "; 1 ;"WRITTEN BY" 1 ;"WHICH GRAPHICS DO YOU WISH TO SAVE (E.G. AB,AU,BK) ?" 1 ;"WHICH GRAPHICS DO YOU WISH TO CLEAR ?": 1 ;"WHAT IS THIS"; 1 ;"TRY AGAIN" 1 ;"TOWN OF "; 1 ;"THIS COUNTRY" 1 ;"THE CURRENCY"; 1 ;"THE CAPITAL "; 1 ;"S...SAVE"; 1 ;"RUN THE TAPE": 1 ;"REFLECT IN WHICH AXIS (X 1 ;"R...ROTATE"; 1 ;"Q...QUIT" 1 ;"Press a key" 1 ;"PRESS Y IF CORRECT OR ANY KEY TO ROTATE AGAIN": 1 ;"PRESS ENTER TO SKIP A BOX" 1 ;"PRESS A KEY": 1 ;"PRESENTS" 1 ;"PQRSTU"; 1 ;"P...PICK UP"; 1 ;"NIGEL ECCLES" 1 ;"NAME A MAJOR"; 1 ;"M...MIRROR"; 1 ;"KNOWLEDGE IS"; 1 ;"I...INVERT"; 1 ;"HIT A KEY( 1 ;"HAVE CHOSEN:"; 1 ;"EUROPEAN "; 1 ;"Display file address = "; 1 ;"D...DESIGN"; 1 ;"CURRENCY OF "; 1 ;"CROSSWORD" 1 ;"COUNTRY ?" 1 ;"C...CLEAR"; 1 ;"B...DATA"; 1 ;"ARE YOU SURE YOU WANT TO QUIT? PRESS Y FOR YES OR N FOR NO." 1 ;"ABCDEFGHIJKLMNO"; 1 ;"A...ALTER"; 1 ;"5--THE LOT "; 1 ;"4--MAIN TOWN "; 1 ;"3--CURRENCY "; 1 ;"2--CAPITALS "; 1 ;"16/48 MAGAZINE"; 1 ;"1 TO 5 NUDGES GIVEN AT RANDOM" 1 ;"1 KEYBOARD" 1 ;"""";B$(A);""" DATA " 1 ;" to answer." 1 ;" WELL DONE " 1 ;" THE COUNTRY "; 1 ;" RUBBISH !!!"; 1 ;" CAPITAL OF "; 1 ;" 20/1 "; 1 ;" WHAT !!!!"; 1 ;" SHOWN IS"; 1 ;" ??? " 1 ;" ??? " 1 ;" ": 1 ;" " 1 ;" " 1 ;" " 1 ;" ": 1 ;" ": 1 ;" " 1 ;" " 1 ;" ": 1 ;" ": 1 ;" ": 1 4 PROTEK/CURSOR 1 3 SINCLAIR INTERFACE 2 1 2 KEMPSTON INTERFACE 1 1985 N.J.ECCLES# 1 1985 ARGUS PRESS SOFTWARE" 1 ,"STOCKHOLM","FINLAND",5 1 ,"SOFIA","YUGOSLAVIA",16 1 ,"ROME","BULGARIA",17 1 ,"PARIS","SPAIN",18 1 ,"OSLO","SWEDEN",6 1 ,"MOSCOW","POLAND",11 1 ,"MADRID","PORTUGAL",17 1 ,"LONDON","NORWAY",6 1 ,"LISBON","BRITAIN",10 1 ,"ISTANBUL" 1 ,"HELSINKI","RUSSIA",9 1 ,"BUCHAREST","GREECE",19 1 ,"BONN","RUMANIA",15 1 ,"BERLIN","WEST GERMANY",13 1 ,"BELGRADE","TURKEY",19 1 ,"ATHENS","ITALY",17 1 );"hours "; 1 ));"Minutes."'"PRESS ANY KEY ( 1 '''"This month we take a look at theSTACK."''"Manipulating the STACK is reallyvery simple, but it is fraught with danger if used carelessly." 1 '''"The Z80 allocates an address in RAM as the start of the stack and builds the stack 1 '''"Next month we look at reading the keyboard."''"Press any key to start again."''''" 1 '''"If you want to try out this little routine you should enter X and Y co-ordinates and see theroutine print the address of thedispay file memory which holds that pixel." 1 ''"We retrieve with POP." 1 ''"To save a pair of bytes onto thestack we simply use the PUSH instruction." 1 ''"The problems arise from keeping track of what is on the stack. This seems like child's play until you discover that your program is not the only thing using the stack." 1 ''"If you want to leave this page then simply type 1 ''"Finally a short example of usingthe stack to save the registers while calling a very useful ROM routine to find the screen address of any pixel." 1 ''"CALL xx does this"''" 1 '"You can see that disasters will occur if the subroutine is not careful to POP all its PUSHes sothat the return address is stillon the bottom of the stack when the RET instruction is reached." 1 '"When subroutines call up other subroutines and the stack is being used repeatedly in loops it becomes essential to take great care that when you come toPOP from the stack you know whatto expect." 1 '"The stack is upside down so thatprograms can grow upwards from the bottom and the stack can grow down from the top. The collision then only happens whenmemory is completely full." 1 '"The complete train of events is" 1 '"The Z80 uses the stack to store the address to which it will return after completing a subroutine." 1 '"The Z80 stores the address of the last item on the stack in a special register called the STACK POINTER (SP). The completestory of PUSH BC is as folows." 1 '"The Spectrum operating system starts the stack just below the UDG's or just below any adddressfollowing a CLEAR satement." 1 '"The RET insruction POPs PC from the stack. That is, it loads theProgam Counter from the stack and starts processing from that address." 1 '"So the stack provides a useful temporary store.It is also FAST." 1 '"One analogy is that of a pile ofplates. You can PUSH a plate on to the top or you can PULL (or in Z80 mnemonics POP) a plate off the top. The plate youPOP off the stack is always thelast one you PUSHed on." 1 '"E.g. POP HL will take the last two bytes PUSHed onto the stack and load them into the HL register pair." 1 '"E.g. PUSH BC will put the contents of the BC register paironto the stack. (We can also PUSH AF,DE,HL,IX or IY.)" 1 '"A stack is an area of memory or registers characterised by what is known as its LIFO structure. LIFO means Last In First Out." 1 "graphics" 1 "VERTIBRA FROM RUM LAB.","CUT LOOSE FROM DAT FIR","THE EASTERN PHILOSOPHY LEAST COMPATIBLE WITH COMPUTERS.","REBUKE FROM SID ON HAM.","BARRIER CLEARED BY MOSES. (AN EDITORIAL NOTE MIGHT HELP.)" 1 "This routine returns with the display file address of the pixel in HL and the bit number in the A register." 1 "SWEDISH PROMOTER OF PEACE AND DYNAMITE." 1 "REASONABLE" 1 "Put the address onto the stack so that we can move it into the BC register.","Collect the address into BC.","Retreive the original HL.","Return to basic and print the address if PRINT 1 "PORI","ROUBLE","LENINGRAD","GORKI","MINSK","ZLOTY","GDANSK","KRAKOW","POZNAN","MARK","DRESDEN","ROSTOCK","LEIPZIG","MARK","HANNOVER","DUSSELDORF","FRANKFURT","LEU","PLOIESTI","CLUJ","CONSTANTA","DRACHMA","THESSALONIKI","PATRAS","PIRAEUS","LIRA","NAPLES","MILAN","TURIN","LEV","PLOVDIV","VARNA","BURGAS","DINAR","SARAJEVO","ZAGREB","BELGRADE","LIRA","KONYA","BURSA","ANKARA" 1 "INVENTOR OF LOGARITHMS.","PALINDROMIC LADY.","SOUNDS FIT FOR BOTH EARS.","INCRIMINATING VEGETABLE PLACED MALEVOLENTLY IN YOUR POCKET." 1 "HL wil be used in the subroutineso save it here if this is part of a bigger program and you needto keep it intact.","load y co-ordinate into B.","Load x co-ordinate into C." 1 "HALF A BYTE.","SKIN CONDITION 100 TIMES LESS IRRITATING THAN A SYSTEM RESET.","WRITING IMPLEMENT INITIALLY PLUCKED EVERY NIGHT." 1 "HACKER'S ESSENTIAL HARDWARE.","16/48 IS ALWAYS THIS AFTER THE EDITORIAL.","DO YOU REMEMBER TO MAKE ONE OF THESE IN ADVENTURES?" 1 "GRAPHIC IN BOX TWO ? "; 1 "GRAPHIC IN BOX THREE ? "; 1 "GRAPHIC IN BOX ONE ? "; 1 "GRAPHIC IN BOX FOUR ? "; 1 "FRANCE",14 1 "FRANC","BORDEAUX","LYONS","MARSEILLES","PESETA","SEVILLE","BARCELONA","VALENCIA","ESCUDO","FARO","COIMBRA","OPORTO","POUND","CARDIFF","EDINBURGH","BIRMINGHAM","KRONE","TRONDHEIM","BERGEN","STAVANGER","KRONA","GOTHENBURG","MALMO","VASTERAS","MARKA","TURKU","TAMPERE" 1 "FILE NAME ? "; 1 "Enter Y coordinate"; 1 "Enter X coordinate."; 1 "EXCELLENT" 1 "ENTER the word "; 1 "EAST GERMANY",11 1 "E5 PUSH HL 229"'"06 AF LD B,175 6,175"'"0E 00 LD C,0 14,0" 1 "E1 POP HL 225"'"C9 RET 201" 1 "CROSSWORD" 1 "CONSIDER THE LILIES OF THE FIELDHOW THEY GROW; THEY ---- NOT..." 1 "CD AA 22 CALL 22AAh 205,170,34"'"E5 PUSH HL 229","C1 POP BC 193" 1 "BanditUDG 1 "A PILE OF LOOT HIDDEN IN THE LAST ASH TREE.","GOSUB IN MACHINE CODE.","TO CONFOUND WITH A LABYRINTH.","A DESCRIPTION OF THIS STRING """"." 1 "9";"SCORE" 1 "9";"0 ": 1 "7";"ARGUS PRESS" 1 "6";"LEVEL(1-6)? " 1 "21";"SOFTWARE." 1 "20";"The computer"; 1 "19";"1--COUNTRIES"; 1 "(The equivalent of the last two examples might be LD (mem),BC then LD HL,(mem) but this would take twice as long.)" 1 "''"Cursor"'"keys"'"move *"''" 1 " ": 1 to"'"answer a"'"clue."''" 1 to quit & load the ADVENTURE.": 1 to page backwards."''''" 1 put xx into PC"'"the next instruction will be fetched from address xx." 1 load L from address in SP"'" 1 load H from address in SP"'" 1 load C into address held in SP" 1 load B into address held in SP"'" 1 from this address." 1 changes"'"mode"'"(across or"'"down)"''"Press"'" 1 TO SAVE TO TAPE 1 TO SAVE TO MICRODRIVE 1 QUITS"''" 1 PUSH program counter (PC)"'" 1 Increment SP." 1 Increment SP"'" 1 DON'T RUN OR CLEAR:GOTO 1.": 1 STOP TAPE THEN PRESS ANY KEY 1 REWIND TAPE AND PRESS PLAY 1 HEX ASSEMBLY DECIMAL 1 1 1 1